home *** CD-ROM | disk | FTP | other *** search
/ Garbo / Garbo.cdr / mac / hypercrd / hc1_2_x / hyprlbls.sit / hyperlabels12.sit / HyperLabels 1.2 / background_4263.txt < prev    next >
Text File  |  1988-03-05  |  8KB  |  338 lines
  1. -- background: 4263 from stack: in.2
  2. -- bmap block id: 6555
  3. -- flags: 4000
  4. -- background id: 0
  5. -- name: Label
  6.  
  7.  
  8. -- part 2 (button)
  9. -- low flags: 00
  10. -- high flags: A003
  11. -- rect: left=28 top=54 right=101 bottom=90
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 1007 / 1007
  14. -- text alignment: 1
  15. -- font id: 0
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: Print Label
  20. ----- HyperTalk script -----
  21. -- Script by Chris Christensen written for HyperLabels
  22. on mouseUp
  23.   hide msg
  24.   global printstyle
  25.   if printstyle = "with borders" then
  26.     printrect 17,103,217,303
  27.   else
  28.     printrect 18,104,216,302
  29.   end if
  30. end mouseUp
  31.  
  32.  
  33.  
  34. -- part 5 (button)
  35. -- low flags: 00
  36. -- high flags: 0000
  37. -- rect: left=15 top=309 right=334 bottom=42
  38. -- title width / last selected line: 0
  39. -- icon id / first selected line: 1014 / 1014
  40. -- text alignment: 1
  41. -- font id: 0
  42. -- text size: 12
  43. -- style flags: 0
  44. -- line height: 16
  45. -- part name: Prev
  46. ----- HyperTalk script -----
  47. on mouseUp
  48.   visual effect wipe right
  49.   go to previous card
  50. end mouseUp
  51.  
  52.  
  53.  
  54. -- part 6 (button)
  55. -- low flags: 00
  56. -- high flags: 0000
  57. -- rect: left=46 top=309 right=334 bottom=73
  58. -- title width / last selected line: 0
  59. -- icon id / first selected line: 1013 / 1013
  60. -- text alignment: 1
  61. -- font id: 0
  62. -- text size: 12
  63. -- style flags: 0
  64. -- line height: 16
  65. -- part name: Next
  66. ----- HyperTalk script -----
  67. on mouseUp
  68.   visual effect wipe left
  69.   go to next card
  70. end mouseUp
  71.  
  72.  
  73.  
  74. -- part 7 (button)
  75. -- low flags: 00
  76. -- high flags: 0000
  77. -- rect: left=114 top=308 right=336 bottom=151
  78. -- title width / last selected line: 0
  79. -- icon id / first selected line: 1012 / 1012
  80. -- text alignment: 1
  81. -- font id: 0
  82. -- text size: 12
  83. -- style flags: 0
  84. -- line height: 16
  85. -- part name: Return
  86. ----- HyperTalk script -----
  87. on mouseUp
  88.   visual effect iris close
  89.   pop card
  90. end mouseUp
  91.  
  92.  
  93.  
  94. -- part 8 (button)
  95. -- low flags: 00
  96. -- high flags: 0004
  97. -- rect: left=79 top=308 right=337 bottom=111
  98. -- title width / last selected line: 0
  99. -- icon id / first selected line: 21700 / 21700
  100. -- text alignment: 1
  101. -- font id: 0
  102. -- text size: 12
  103. -- style flags: 0
  104. -- line height: 16
  105. -- part name: Home
  106. ----- HyperTalk script -----
  107. on mouseUp
  108.   visual effect iris open
  109.   go Home
  110. end mouseUp
  111.  
  112.  
  113.  
  114. -- part 9 (button)
  115. -- low flags: 00
  116. -- high flags: A003
  117. -- rect: left=367 top=287 right=335 bottom=430
  118. -- title width / last selected line: 0
  119. -- icon id / first selected line: 20186 / 20186
  120. -- text alignment: 1
  121. -- font id: 0
  122. -- text size: 12
  123. -- style flags: 0
  124. -- line height: 16
  125. -- part name: Add to Index
  126. ----- HyperTalk script -----
  127. -- Script by Chris Christensen written for HyperLabels
  128. on mouseUp
  129.   -- determine id of this card
  130.   put word 7 of long name of the target into thiscard
  131.   -- create mouseUp script to get this card
  132.   put "on mouseUp" into line 1 of callback
  133.   put "push card" into line 2 of callback
  134.   put "go to card id " into line 3 of callback
  135.   put thiscard after line 3 of callback
  136.   put "end mouseUp" into line 4 of callback
  137.   -- get the picture
  138.   choose select tool
  139.   drag from 17,103 to 216,302
  140.   doMenu Copy Picture
  141.   -- make the button
  142.   go to last card of background "Index"
  143.   choose button tool
  144.   doMenu New Button
  145.   -- number of button used to determine where on the index page to place
  146.   get number of button "New Button"
  147.   put 20 + ((it - 1) mod 4) * 120 into x
  148.   put 80 + ((it - 1) div 4) * 120 into y
  149.   put it into thebutton
  150.   set showName of button "New Button" to false
  151.   set style of button "New Button" to transparent
  152.   set rectangle of button "New Button" to x,y,x+99,y+99
  153.   set autoHilite of button "New Button" to false
  154.   set script of button "New Button" to callback
  155.   set name of button "New Button" to thiscard
  156.   -- paste the picture
  157.   choose select tool
  158.   doMenu paste picture
  159.   drag from 17,103 to 117,203 with commandKey -- shrink to half
  160.   drag from 117,203 to x,y
  161.   -- is the index full?
  162.   if thebutton = 8 then
  163.     doMenu New Card
  164.   end if
  165.   go to card id thiscard
  166.   choose browse tool
  167. end mouseUp
  168.  
  169.  
  170.  
  171. -- part 17 (button)
  172. -- low flags: 00
  173. -- high flags: 8006
  174. -- rect: left=109 top=58 right=77 bottom=195
  175. -- title width / last selected line: 0
  176. -- icon id / first selected line: 0 / 0
  177. -- text alignment: 1
  178. -- font id: 0
  179. -- text size: 12
  180. -- style flags: 0
  181. -- line height: 16
  182. -- part name: border
  183. ----- HyperTalk script -----
  184. -- Script by Chris Christensen written for HyperLabels
  185. on mouseUp
  186.   global printstyle
  187.   put "with borders" into printstyle
  188.   set the hilite of bkgnd button "no border" to false
  189.   set the hilite of bkgnd button "border" to true
  190. end mouseUp
  191.  
  192.  
  193.  
  194. -- part 18 (button)
  195. -- low flags: 00
  196. -- high flags: C006
  197. -- rect: left=109 top=77 right=95 bottom=196
  198. -- title width / last selected line: 0
  199. -- icon id / first selected line: 0 / 0
  200. -- text alignment: 1
  201. -- font id: 0
  202. -- text size: 12
  203. -- style flags: 0
  204. -- line height: 16
  205. -- part name: no border
  206. ----- HyperTalk script -----
  207. -- Script by Chris Christensen written for HyperLabels
  208. on mouseUp
  209.   global printstyle
  210.   put "without borders" into printstyle
  211.   set the hilite of bkgnd button "border" to false
  212.   set the hilite of bkgnd button "no border" to true
  213. end mouseUp
  214.  
  215.  
  216.  
  217. -- part 26 (field)
  218. -- low flags: 01
  219. -- high flags: 4007
  220. -- rect: left=240 top=60 right=283 bottom=494
  221. -- title width / last selected line: 0
  222. -- icon id / first selected line: 0 / 0
  223. -- text alignment: 0
  224. -- font id: 3
  225. -- text size: 12
  226. -- style flags: 0
  227. -- line height: 16
  228. -- part name: Description
  229. ----- HyperTalk script -----
  230. -- Script by Chris Christensen written for HyperLabels
  231. on mouseUp
  232.   put line ClickLine() of bkgnd field "Description" after card field "Contents"
  233.   put return after card field "Contents"
  234. end mouseUp
  235.  
  236.  
  237. -- part 27 (button)
  238. -- low flags: 00
  239. -- high flags: 8003
  240. -- rect: left=432 top=288 right=335 bottom=498
  241. -- title width / last selected line: 0
  242. -- icon id / first selected line: 7012 / 7012
  243. -- text alignment: 1
  244. -- font id: 0
  245. -- text size: 12
  246. -- style flags: 0
  247. -- line height: 16
  248. -- part name: New Label
  249. ----- HyperTalk script -----
  250. -- Script by Chris Christensen written for HyperLabels
  251. on mouseUp
  252.   go to last card of background "Label"
  253.   doMenu "New Card"
  254. end mouseUp
  255.  
  256.  
  257.  
  258. -- part 28 (button)
  259. -- low flags: 00
  260. -- high flags: 8003
  261. -- rect: left=231 top=288 right=335 bottom=297
  262. -- title width / last selected line: 65535
  263. -- icon id / first selected line: -6047 / 59489
  264. -- text alignment: 1
  265. -- font id: 0
  266. -- text size: 12
  267. -- style flags: 0
  268. -- line height: 16
  269. -- part name: Catalog
  270. ----- HyperTalk script -----
  271. -- Script by Chris Christensen written for HyperLabels
  272. on mouseUp
  273.   push card
  274.   go to first card of background "volumes"
  275.   put volumes() into field "volumes"
  276. end mouseUp
  277.  
  278.  
  279.  
  280. -- part 29 (field)
  281. -- low flags: 80
  282. -- high flags: 0004
  283. -- rect: left=258 top=220 right=285 bottom=465
  284. -- title width / last selected line: 0
  285. -- icon id / first selected line: 0 / 0
  286. -- text alignment: 0
  287. -- font id: 3
  288. -- text size: 12
  289. -- style flags: 0
  290. -- line height: 16
  291. -- part name: author
  292.  
  293.  
  294. -- part 31 (button)
  295. -- low flags: 00
  296. -- high flags: 8003
  297. -- rect: left=299 top=288 right=335 bottom=365
  298. -- title width / last selected line: 0
  299. -- icon id / first selected line: 2478 / 2478
  300. -- text alignment: 1
  301. -- font id: 0
  302. -- text size: 12
  303. -- style flags: 0
  304. -- line height: 16
  305. -- part name: Label Author
  306. ----- HyperTalk script -----
  307. -- Script by Chris Christensen written for HyperLabels
  308. on mouseUp
  309.   if visible of background field "author" is true
  310.   then
  311.   hide background field "author"
  312. else
  313.   show background field "author"
  314. end if
  315. end mouseUp
  316.  
  317.  
  318.  
  319. -- part 32 (button)
  320. -- low flags: 00
  321. -- high flags: 8003
  322. -- rect: left=152 top=309 right=334 bottom=218
  323. -- title width / last selected line: 0
  324. -- icon id / first selected line: 0 / 0
  325. -- text alignment: 1
  326. -- font id: 0
  327. -- text size: 12
  328. -- style flags: 0
  329. -- line height: 16
  330. -- part name: add icon
  331. ----- HyperTalk script -----
  332. -- Script by Chris Christensen written for HyperLabels
  333. on mouseUp
  334.   push card
  335.   go to first card of background "icons"
  336. end mouseUp
  337.  
  338.